PARSE.LSP[P,JRA] - www.SailDart.org

perm filename PARSE.LSP[P,JRA] blob sn#056882 filedate 1973-08-08 generic text, type T, neo UTF8
(DEFPROP ST
 (LAMBDA (X) (PRINT (CADR X)))
EXPR)

(DEFPROP DSK T LITERAL) 

(DEFPROP F1
 (LAMBDA (F) (CONS (QUOTE DSK) F))
EXPR)

(DEFPROP F2
 (LAMBDA (X Y)
  (PROG (J)
        (SETQ J X)
        (PROG (&V &L1 K)
              (SETQ &L1 Y)
         LOOP (COND ((NULL &L1) (RETURN &V)))
              (SETQ K (CAR &L1))
              (SETQ &L1 (CDR &L1))
              (SETQ &V (SETQ J (LIST (CAR K) J (CADR K))))
              (GO LOOP))
        (RETURN J)))
EXPR)

(DEFPROP F3
 (LAMBDA (X Y)
  (PROG (J)
        (SETQ J X)
        (PROG (&V &L1 K)
              (SETQ &L1 Y)
         LOOP (COND ((NULL &L1) (RETURN &V)))
              (SETQ K (CAR &L1))
              (SETQ &L1 (CDR &L1))
              (SETQ &V (SETQ J (LIST (CAR K) J (CADR K))))
              (GO LOOP))
        (RETURN J)))
EXPR)

(DEFPROP /( T LITERAL) 

(DEFPROP /) T LITERAL) 

(DEFPROP ¬ T LITERAL) 

(DEFPROP F4
 (LAMBDA (X) (COND ((OR (EQUAL (CAR X) 1) (EQUAL (CAR X) 3)) (CADR X)) (T (LIST NOT (CADR X)))))
EXPR)

(DEFPROP ANCESTRY T LITERAL) 

(DEFPROP NONE T LITERAL) 

(DEFPROP VINE T LITERAL) 

(DEFPROP UNIT T LITERAL) 

(DEFPROP P1 T LITERAL) 

(DEFPROP P2 T LITERAL) 

(DEFPROP SUPPORT T LITERAL) 

(DEFPROP DEPTH T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP SELDEPTH T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP LENGTH T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP MODEL T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP EQUALITY T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP DEMOD T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP DEFMODEL T LITERAL) 

(DEFPROP /[ T LITERAL) 

(DEFPROP /] T LITERAL) 

(DEFPROP PREDIC
 (LAMBDA (X)
  (COND
   ((OR (OR (OR (EQUAL (CAR X) 1) (EQUAL (CAR X) 2)) (EQUAL (CAR X) 3)) (EQUAL (CAR X) 4)) (CADR X))
   ((EQUAL (CAR X) 5) (QUOTE ALLPOS))
   (T X)))
EXPR)

(DEFPROP PROGRAM
 (LAMBDA NIL NIL)
EXPR)

(DEFPROP ST (3 NIL NIL 16 NIL NIL) NEXTALT) 

(LAP ST# SUBR) 
(CALL 1 (E DPNT)) 
(MOVEI 1 G0296) 
(HRRM 1 0 SSTACK) 
(CALL 0 (E F1#)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 1)) 
(JRST 0 G0295) 
G0296 
(MOVEI 1 G0299) 
(HRRM 1 0 SSTACK) 
(CALL 0 (E F2#)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 2)) 
(JRST 0 G0295) 
G0299 
(JCALL 0 (E END_OF_ALT)) 
G0295 
(CALL 2 (E XCONS)) 
(CALL 1 (E RDPNT)) 
(JCALL 1 (E ST)) 
NIL 

(LAP F1# SUBR) 
(MOVEI 1 (QUOTE DSK)) 
(CALL 1 (E ICHKS)) 
(MOVEI 1 (QUOTE :)) 
(CALL 1 (E DCHKS)) 
(CALL 0 (E FILE#)) 
(PUSH P 1) 
(POP P 1) 
(JCALL 1 (E F1)) 
NIL 

(LAP F2# SUBR) 
(CALL 0 (E F3#)) 
(PUSH P 1) 
(CALL 0 (E SREP)) 
G0309 
(MOVEI 1 G0310) 
(CALL 1 (E DPNT)) 
(MOVEI 1 (QUOTE ∨)) 
(CALL 1 (E DCHKS)) 
(PUSH P 1) 
(CALL 0 (E F3#)) 
(PUSH P 1) 
(MOVEI 1 2) 
(CALL 1 (E ASSEM)) 
(CALL 1 (E RREP)) 
(JRST 0 G0309) 
G0310 
(CALL 1 (E RDDPNT)) 
(MOVE 1 0 P) 
(CALL 1 (E REVERSE)) 
(MOVEM 1 0 P) 
(POP P 2) 
(POP P 1) 
(JCALL 2 (E F2)) 
NIL 

(LAP F3# SUBR) 
(CALL 0 (E F4#)) 
(PUSH P 1) 
(CALL 0 (E SREP)) 
G0316 
(MOVEI 1 G0317) 
(CALL 1 (E DPNT)) 
(MOVEI 1 (QUOTE ∧)) 
(CALL 1 (E DCHKS)) 
(PUSH P 1) 
(CALL 0 (E F4#)) 
(PUSH P 1) 
(MOVEI 1 2) 
(CALL 1 (E ASSEM)) 
(CALL 1 (E RREP)) 
(JRST 0 G0316) 
G0317 
(CALL 1 (E RDDPNT)) 
(MOVE 1 0 P) 
(CALL 1 (E REVERSE)) 
(MOVEM 1 0 P) 
(POP P 2) 
(POP P 1) 
(JCALL 2 (E F3)) 
NIL 

(DEFPROP F4 (4 NIL NIL 41 NIL NIL) NEXTALT) 

(LAP F4# SUBR) 
(CALL 1 (E DPNT)) 
(MOVEI 1 G0322) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE /()) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E ST#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /))) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 3) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 1)) 
(JRST 0 G0321) 
G0322 
(MOVEI 1 G0323) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE ¬)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E F4#)) 
(PUSH P 1) 
(MOVEI 1 2) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 2)) 
(JRST 0 G0321) 
G0323 
(MOVEI 1 G0324) 
(HRRM 1 0 SSTACK) 
(CALL 0 (E PREDIC#)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 3)) 
(JRST 0 G0321) 
G0324 
(JCALL 0 (E END_OF_ALT)) 
G0321 
(CALL 2 (E XCONS)) 
(CALL 1 (E RDPNT)) 
(JCALL 1 (E F4)) 
NIL 

(DEFPROP PREDIC (17 NIL NIL 272 NIL NIL) NEXTALT) 

(LAP PREDIC# SUBR) 
(CALL 1 (E DPNT)) 
(MOVEI 1 G0340) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE ANCESTRY)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 1)) 
(JRST 0 G0339) 
G0340 
(MOVEI 1 G0341) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE NONE)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 2)) 
(JRST 0 G0339) 
G0341 
(MOVEI 1 G0342) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE VINE)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 3)) 
(JRST 0 G0339) 
G0342 
(MOVEI 1 G0343) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE UNIT)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 4)) 
(JRST 0 G0339) 
G0343 
(MOVEI 1 G0344) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE P1)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 5)) 
(JRST 0 G0339) 
G0344 
(MOVEI 1 G0345) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE P2)) 
(CALL 1 (E ICHKS)) 
(CALL 1 (E NCONS)) 
(MOVEI 2 (QUOTE 6)) 
(JRST 0 G0339) 
G0345 
(MOVEI 1 G0346) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE SUPPORT)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E C#)) 
(PUSH P 1) 
(MOVEI 1 2) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 7)) 
(JRST 0 G0339) 
G0346 
(MOVEI 1 G0349) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE DEPTH)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E NUMBER)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 4) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 10)) 
(JRST 0 G0339) 
G0349 
(MOVEI 1 G0350) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE SELDEPTH)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E FNLSTP#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 4) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 11)) 
(JRST 0 G0339) 
G0350 
(MOVEI 1 G0354) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE LENGTH)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E NUMBER)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 4) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 12)) 
(JRST 0 G0339) 
G0354 
(MOVEI 1 G0355) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE MODEL)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E PREDLST#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE ;)) 
(CALL 1 (E DCHKS)) 
(PUSH P 1) 
(CALL 0 (E PREDLST#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 6) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 13)) 
(JRST 0 G0339) 
G0355 
(MOVEI 1 G0359) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE EQUALITY)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E OP#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE ;)) 
(CALL 1 (E DCHKS)) 
(PUSH P 1) 
(CALL 0 (E NUMBER#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 6) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 14)) 
(JRST 0 G0339) 
G0359 
(MOVEI 1 G0365) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE DEMOD)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E CLAUSES#)) 
(PUSH P 1) 
(CALL 0 (E NUMBER#)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 5) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 15)) 
(JRST 0 G0339) 
G0365 
(MOVEI 1 G0369) 
(HRRM 1 0 SSTACK) 
(MOVEI 1 (QUOTE DEFMODEL)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /[)) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(CALL 0 (E IDENTIFIER)) 
(PUSH P 1) 
(MOVEI 1 (QUOTE /])) 
(CALL 1 (E ICHKS)) 
(PUSH P 1) 
(MOVEI 1 4) 
(CALL 1 (E ASSEM)) 
(MOVEI 2 (QUOTE 16)) 
(JRST 0 G0339) 
G0369 
(JCALL 0 (E END_OF_ALT)) 
G0339 
(CALL 2 (E XCONS)) 
(CALL 1 (E RDPNT)) 
(JCALL 1 (E PREDIC)) 
NIL 

(LAP PROGRAM# SUBR) 
(CALL 0 (E ST#)) 
(MOVEI 1 (QUOTE ;)) 
(CALL 1 (E DCHKS)) 
(JCALL 0 (E PROGRAM)) 
NIL